home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / graphics / fxforge / distortfx / 3dpillowweave < prev    next >
Text File  |  1999-06-15  |  2KB  |  54 lines
  1. Filter Factory Plugin Information:
  2.  
  3. FILENAME: NDIGWEAV.8BF
  4.  
  5. CATEGORY: 
  6. Neology
  7.  
  8. TITLE:    
  9. Digital Weaver
  10.  
  11. COPYRIGHT:
  12. Copyright ) 1997 by Werner D. Streidt
  13. 100526.16@compuserve.com
  14.  
  15. AUTHOR:   
  16. Werner D. Streidt
  17.  
  18. Map 0: [Map 0:]
  19. Map 1: [Map 1:]
  20. Map 2: [Map 2:]
  21. Map 3: [Map 3:]
  22.  
  23. Control 0: [Weave size]
  24. Control 1: [Shadow contrast]
  25. Control 2: [Control 2:]
  26. Control 3: [Control 3:]
  27. Control 4: [Control 4:]
  28. Control 5: [Control 5:]
  29. Control 6: [Control 6:]
  30. Control 7: [Control 7:]
  31.  
  32. R=
  33. put(x%(ctl(0)*2),0), put(y%(ctl(0)*2),1),
  34. (get(0)<ctl(0) && get(1)<ctl(0)) || (get(0)>(ctl(0)-1)&&get(1)>(ctl(0)-1))?
  35. (y%ctl(0))<(ctl(0)/val(1,0,20))?(y%ctl(0)+1)*(256*val(1,0,20)/ctl(0))*c/256:(y%ctl(0)>(ctl(0)-1-ctl(0)/val(1,0,20)))?(ctl(0)-y%ctl(0))*(256*val(1,0,20)/ctl(0))*c/256:c:
  36. (x%ctl(0))<(ctl(0)/val(1,0,20))?(x%ctl(0)+1)*(256*val(1,0,20)/ctl(0))*c/256:(x%ctl(0)>(ctl(0)-1-ctl(0)/val(1,0,20)))?(ctl(0)-x%ctl(0))*(256*val(1,0,20)/ctl(0))*c/256:c
  37.  
  38.  
  39. G=
  40. (get(0)<ctl(0) && get(1)<ctl(0)) || (get(0)>(ctl(0)-1)&&get(1)>(ctl(0)-1))?
  41. (y%ctl(0))<(ctl(0)/val(1,0,20))?(y%ctl(0)+1)*(256*val(1,0,20)/ctl(0))*c/256:(y%ctl(0)>(ctl(0)-1-ctl(0)/val(1,0,20)))?(ctl(0)-y%ctl(0))*(256*val(1,0,20)/ctl(0))*c/256:c:
  42. (x%ctl(0))<(ctl(0)/val(1,0,20))?(x%ctl(0)+1)*(256*val(1,0,20)/ctl(0))*c/256:(x%ctl(0)>(ctl(0)-1-ctl(0)/val(1,0,20)))?(ctl(0)-x%ctl(0))*(256*val(1,0,20)/ctl(0))*c/256:c
  43.  
  44.  
  45. B=
  46. (get(0)<ctl(0) && get(1)<ctl(0)) || (get(0)>(ctl(0)-1)&&get(1)>(ctl(0)-1))?
  47. (y%ctl(0))<(ctl(0)/val(1,0,20))?(y%ctl(0)+1)*(256*val(1,0,20)/ctl(0))*c/256:(y%ctl(0)>(ctl(0)-1-ctl(0)/val(1,0,20)))?(ctl(0)-y%ctl(0))*(256*val(1,0,20)/ctl(0))*c/256:c:
  48. (x%ctl(0))<(ctl(0)/val(1,0,20))?(x%ctl(0)+1)*(256*val(1,0,20)/ctl(0))*c/256:(x%ctl(0)>(ctl(0)-1-ctl(0)/val(1,0,20)))?(ctl(0)-x%ctl(0))*(256*val(1,0,20)/ctl(0))*c/256:c
  49.  
  50.  
  51. A=
  52. a
  53.  
  54.